home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Art / C-Ch / Canvas 3.0.4 Updater.cpt / Canvas 3.0.4 Updater / Canvas Updater.rsrc / PSst_6100 < prev    next >
Encoding:
Text File  |  1992-04-29  |  591 b   |  14 lines
  1. %%DSIDICT:_cv
  2. userdict /_cv known not currentdict /bu known and{bu}{save}ifelse
  3. userdict /_cv known not dup {userdict /_cv 20 dict put}if
  4. _cv begin
  5. /bdf{bind def}bind def
  6. /setcmykcolor where{/setcmykcolor get /cvcmyk exch def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf }ifelse
  7. /stg{cf ca /cs load setscreen setgray}bdf
  8. /strgb{cf ca /cs load setscreen setrgbcolor}bdf
  9. /stcmyk{cf ca /cs load setscreen cvcmyk}bdf
  10. /min1{dup 0 eq{pop 1}if}bdf
  11. currentscreen/cs exch def/ca exch def/cf exch def
  12. end
  13. currentdict /bn known and{bn}{restore}ifelse
  14.